0 IFPGOTO1000
1 V=53248:S=54272:SG=12.3-PEEK(1984):IFPEEK(819)<>245THENU$="N"GOTO18020
2 D$="":FORI=0TO9:B$=B$+"    ":NEXT:PRINT"[153][147]
3 [134]H$(26),A(3),A$(3),WA$(6),SU$(5),MO$(20),MO(20,4),SS$(9):[151]S[170]24,15
20 [141]100:I[178][187]([171]TI):[151]51001,13:[151]51000,13
50 P[178]7811:LV[178]1:WA[178]1:SU[178]1:G[178]6:FA[178]9:[151]5687,7:TI$[178]"000000
51 POKEV+28,255:POKEV+21,.:POKEV+37,7:POKEV+38,10:LE=1E3:HT=2
52 FORI=40TO43:POKEV+I,PEEK(5687):NEXT:HS=3
96 GOSUB10000:GOTO1000
100 OPEN1,8,0,"VERLIES (DATA),P,R"
110 FORI=0TO3:INPUT#1,A(I):INPUT#1,A$(I):NEXT:FORI=0TO26:INPUT#1,H$(I):NEXT
120 FORI=1TO6:INPUT#1,WA$(I):NEXT:FORI=1TO5:INPUT#1,SU$(I):NEXT
130 FORI=1TO20:INPUT#1,MO$(I):FORJ=0TO4:INPUT#1,MO(I,J):NEXTJ,I:INPUT#1,K$
140 FORI=1TO9:INPUT#1,SS$(I):NEXT:CLOSE1:K$=K$+"ST\DLICH":RETURN
1000 IFPEEK(P)=.THENM=.:MH=.:POKEV+21,PEEK(V+21)AND3
1002 AL=A-1:IFA=.THENAL=3
1004 AR=A+1:IFA=3THENAR=.
1010 FORI=.TO6:POKE4328+I,PEEK(P+A(A)*I):POKE4336+I,PEEK(P+A(AL)+A(A)*I)
1020 POKE4343+I,PEEK(P+A(AR)+A(A)*I):NEXT
1024 H=PEEK(4329):IFLI=.ANDPEEK(P)=.GOTO1800
1025 IFPEEK(P)GOTO1600
1030 SYS5632:IFH=.ORH=255GOTO1100
1035 PRINTLEFT$(D$,12)SPC(19+3*SGN(A(A)))"[144][211]":IFH>99GOTO1050
1040 PRINTLEFT$(D$,9)SPC(18)"###[157][157][157]###[157][157][157]###":GOTO1100
1050 IFH>199GOTO1070
1060 PRINTLEFT$(D$,9)SPC(16)"GEW\LBE[157][157][157][157][157][157][157] -"H-100-LV"[157] - ":GOTO1100
1070 IFH>230GOTO1090
1080 PRINTLEFT$(D$,9)SPC(16)LEFT$(H$(H-200),7)"[157][157][157][157][157][157][157]"MID$(H$(H-200),8):GOTO1100
1090 IFH=250THENPRINTLEFT$(D$,9)SPC(16)"DRACHEN[157][157][157][157][157][157][157]_H\HLE_":GOTO1100
1098 PRINTLEFT$(D$,10)SPC(16)"AUSGANG
1100 [141]14000:[139]LE[178]0[137]15000
1101 [139]KO[178]1[167][153][200](D$,20)[166]17)"CONT"A$(A)
1102 Q[178]0:[158]5640:[153]D$"PRINT(null)";
1103 [139]Z1[167]Z1[178]Z1[171]1:[139]Z1[178]0[167][158]5640:[153]D$"ON(null)DER WAFFENZAUBER IST VERBRAUCHT,"D$"(null)";
1104 [139]Z2[167]Z2[178]Z2[171]1:[139]Z2[178]0[167][158]5640:[153]D$"ON(null)DER L[HMZAUBER IST VERBRAUCHT,"D$"(null)";
1105 [139]LI[177]0[167]LI[178]LI[171]1:[139]LI[178]0[167][153]D$"(null)DIE FACKEL IST AUSGEGANGEN,"D$;:[139][194](P)[178]0[137]1000
1106 [139]LI[178]15[167][153]D$"(null)&DIE FACKEL GEHT GLEICH AUS,&":[137]1100
1108 [139]Z0[167]Z0[178]Z0[171]1:[139]Z0[178]0[167][158]5640:[153]D$"ON(null)DER SCHUTZZAUBER IST VERBRAUCHT,"D$"(null)";
1109 MO[178]1[171]MO:[139]M[175]MO[178]1[137]1400
1110 [161]U$:[139]U$[178]"V"[176]([194](56320)[175]1)[178]0[137]1500
1112 [139]U$[178]","[176]([194](56320)[175]4)[178]0[137]1530
1114 [139]U$[178]"."[176]([194](56320)[175]8)[178]0[137]1540
1116 [139]U$[178]"T"[175]([194](P)[179][177]240[176]A[178]2)[137]1550
1118 [139]U$[178]"R"[176]([194](56320)[175]2)[178]0[137]1560
1120 [139]U$[178]"W"[137]1570
1122 [139]U$[178]"E"[137]1580
1124 [139]U$[178]"L"[137]1590
1126 [139]U$[178]"I"[137]1900
1128 [139]U$[178]"U"[137]1200
1130 [139]U$[178]"A"[137]1430
1131 [139]U$[178]"O"[137]6000
1132 [139]U$[178]"_"[137]1190
1133 [139]U$[178]"H"[137]1210
1135 [139]U$[178]"LEFT$"[137]1220
1136 [139]U$[178]"P"[137]1230
1138 [139]U$[178]"K"[137]1240
1139 [139]U$[178]"F"[137]1250
1140 [139]U$[178]"B"[137]1270
1141 [139]U$[178]"S"[137]1280
1142 [139]U$[178]"Z"[137]1290
1143 [139]U$[178]"J"[137]1294
1144 [139]U$[178]"D"[137]14150
1145 [139]U$[178]"M"[137]9000
1146 [139]U$[178]"RESTORE"[175]W[178]1[167][153]"SELBSTMORD,,,":[137]9060
1148 [139]U$[177]""[167][153]"WIE BITTE,,,?";:[137]1100
1149 Q[178]Q[170]1:[139]Q[178]66[167][153]"CMD(null)DIE ZEIT VERGEHT,,,":[137]1100
1150 [137]1110
1190 [153]D$"(null)DIE ZEIT IST EINGEFROREN,
1191 U$=TI$:SYS6738:FORI=.TO15:FORJ=1TO24:POKES+1,J:NEXTJ,I
1192 POKES+4,32:SYS5640:PRINTD$"[211]DR]CKE EINE TASTE ZUM WEITERSPIELEN,
1194 [151]198,0:[146]198,1:TI$[178]U$:[161]U$:[137]1100
1200 [153]"SCHAU AUF DIE UHR - OK,";:[139]UH[178]0[167][153]"CMDCMDCMDWELCHE UHR?":[137]1100
1202 [158]5640:[153]D$"(null)SCHON";:[139][200](TI$,2)[178]"00"[137]1208
1203 [139][200](TI$,2)[177]1[167][153][197]([200](TI$,2))"STUNDEN.";:[137]1208
1204 [153]" EINE STUNDE.";
1208 [153][197]([202](TI$,3,2))"MINUTEN VORBEI,":[137]1100
1210 [153]"TRINKE HEILTRANK - OK,";:[139]HT[178]0[167][153]"CMDCMDCMDHABE ICH NICHT!":[137]1100
1212 [158]6713:[129]I[178]9[164]60[169]2:[129]J[178]I[164]60:[151]S[170]1,J
1214 [130]J,I:[151]S[170]4,16:LE[178]10[172][181](LE[173]10)
1216 LE[178]LE[170]10:[141]10025:[139]LE[179]1E3[137]1216
1218 HT[178]HT[171]1:[137]1100
1220 [153]"VERWENDE HEILSALBE - OK,";:[139]HS[178]0[167][153]"CMDCMDCMDHABE ICH NICHT!":[137]1100
1222 [158]6729:[129]I[178]0[164]20[169]5:[129]J[178]I[164]I[170]80:[151]S[170]1,J
1224 [130]J,I:[151]S[170]4,128
1226 [129]I[178]1[164]25:LE[178]LE[170]10:[139]LE[177]1E3[167]LE[178]1E3
1228 [141]10025:[130]:HS[178]HS[171]1:[137]1100
1230 [153]"BESCHW\RE PENDEL - OK,";:[139]PE[178]0[167][153]"CMDCMDCMDHABE ICH NICHT!":[137]1100
1231 [139]M[177]0[167][153]"CMDCMDCMDERST K[MPFEN!":[137]1100
1232 [158]6754:[129]I[178]0[164]2E3:[130]:[151]S[170]4,128
1233 [158]5640:[139][194](P)[179]99[175][194](P)[177]0[167][139][194](16484[170][194](P))[178]26[137]1236
1234 [153]D$"(null)ES H[NGT RUHIG,":[137]1100
1236 [153]D$"(null)ES SCHL[GT AUS!":[137]1100
1240 [153]"SIEH IN DEN KRISTALL - OK,";:[139]KR[178]0[167][153]"CMDCMDCMDHABE ICH NICHT!":[137]1100
1242 [158]6775:[139]H[178][177]199[175]H[179]240[167][153]D$"(null)ICH SEHE UNDEUTLICH EIN MONSTER!":[137]1100
1244 [139]H[178]240[167][153]D$"ICH SEHE DEN B\SEN ZAUBERER!":[137]1100
1246 [139]H[178]0[176]H[177]99[176][194](16584[170]H)[178]0[167][153]D$"ICH KANN NICHTS ERKENNEN!":[137]1100
1248 [153]D$"ICH SEHE EINE";:[139][201](MO$([194](16584[170]H)),1)[179][177]"E"[167][153]"N";
1249 [153]" "MO$([194](16584[170]H))"!":[137]1100
1250 [153]"SCHLEUDERE FEUERBALL - OK,";:[139]FE[178]0[167][153]"CMDCMDCMDGEHT NICHT!":[137]1100
1251 Q[178][194](V[170]41):[158]6692:[158]6350:FE[178]FE[171]1
1252 [151]V[170]28,240:[129]I[178]0[164]1:[129]J[178]0[164]80:[130]:[151]2042,215[171]I:[130]:[129]J[178]0[164]80:[130]
1253 [158]6396:[129]I[178]0[164]2:[129]J[178]0[164]80:[130]:[151]2042,215[171]I:[130]:[139][194](P)[178]240[167]W[178]1
1254 [129]J[178]0[164]80:[130]:[151]S[170]4,128:[151]V[170]21,[194](V[170]21)[171]4:[151]V[170]41,Q:[139]M[178]0[137]1100
1255 [151]S[170]5,12:[151]S[170]6,12:[151]S[170]1,3:[151]S[170]4,129:[129]I[178]0[164]5:[129]J[178]0[164]1
1256 [151]2,1[170]6[172]J:[158]6428:[129]E[178]0[164]5:[130]E,J,I:[151]2,MO(M,4):[158]6428:[151]S[170]4,128
1257 [139]M[178]20[167][151]V[170]45,13:[151]V[170]46,13
1258 [139]U$[178]"B"[137]1275
1259 VI[178]VI[171](20[171]MO(M,2)):[139]VI[179]1[167]VI[178]0
1260 Q[178][181](VI[172]1E3[173]MO(M,0)):[151]36,Q[173]10[170].99:[158]5500
1261 [153][200](D$,20)[166]31)"CONT     "Q[171]10[172][181](Q[173]10)"CMD%CMDCMDCMD.CMDCMDCMDCMDCMDCMD";
1262 U$[178][196]([181](Q[173]10)):[153][200]("    ",5[171][195](U$))U$:[137]1480
1270 [153]"SCHLEUDERE BLITZ - OK,";:[139]BL[178]0[167][153]"CMDCMDCMDGEHT NICHT!":[137]1100
1271 Q[178][194](V[170]41):[158]6692:[158]6350:BL[178]BL[171]1:[151]V[170]41,1:[137]1252
1275 VI[178]VI[171](42[171]MO(M,2)[172]2):[139]VI[179]1[167]VI[178]0
1276 [137]1260
1280 [153]"SCHUTZZAUBER AKTIVIEREN - OK,";:[139]SH[178]0[167][153]"CMDCMDCMDWIE DENN?":[137]1100
1282 SH[178]SH[171]1:Z0[178]11:E[178]5
1284 [151]S[170]5,4:[151]S[170]6,196:[129]I[178]1[164]15:[151]S[170]24,I:[151]S[170]4,17
1286 [129]J[178]0[164]5:[151]S[170]1,I[172]5[172][187](1)[170]50:[130]:[151]S[170]4,16:[130]:[151]S[170]5,9:[151]S[170]6,9
1288 [151]S[170]4,129:[151]V[170]33,E:[151]V[170]32,E
1289 [129]I[178]42[164]10[169][171]1:[151]S[170]1,I:[130]:[151]S[170]4,128:[151]V[170]33,11:[151]V[170]32,11:[137]1100
1290 [153]"WAFFENZAUBER AKTIVIEREN - OK,";:[139]SW[178]0[167][153]"CMDCMDCMDUND WIE?":[137]1100
1292 SW[178]SW[171]1:Z1[178]11:E[178]3:[137]1284
1294 [153]"L[HMUNGSZAUBER AKTIVIEREN - OK,";:[139]LZ[178]0[167][153]"CMDCMDCMDWIE OHNE?":[137]1100
1296 LZ[178]LZ[171]1:Z2[178]11:E[178]2:[137]1284
1300 [139]M[177]0[137]1100
1302 Q[178]16584[170][194](P):[139][194](Q)[178]0[137]1100
1305 M[178][194](Q):VI[178][194](Q[170]100):[129]I[178]0[164]3:[151]V[170]43[170]I,MO(M,4)
1310 [151]2044[170]I,231[170]M[172]8[171]LV[172]16[170]I:[130]:[158]6801
1322 [129]I[178]5[164]45:[151]S[170]1,I:[151]S[170]8,50[171]I:[151]V[170]21,0:[129]J[178]0[164]8:[130]:[151]V[170]21,240:[130]
1330 [151]S[170]4,32:[151]S[170]11,32:[153]D$"ONONONSYS  EIN";:[139][201](MO$(M),1)[178]"E"[167][153]"E";
1332 [153]" "MO$(M)" ERSCHEINT!":[129]I[178]0[164]750:[130]:[153]D$"DEFONONONKRAFT:";
1333 Q[178][181](MO(M,1)[172]1.9):[139]Q[177]75[167]Q[178]75
1334 [141]1390:[153]"DEFPANZ:";:Q[178]MO(M,2)[172]4.9:[141]1390:[153]"DEFVITA:";:Q[178][181]((MO(M,0)[171]10)[173].6)
1336 [139]M[178]20[167]Q[178]70
1350 [141]1390:[129]I[178]1[164][195](MO$(M)):[153][200](D$,2[170]I)[166]39)[202](MO$(M),I,1):[130]
1360 MO[178]0:Q[178][181](VI[172]1E3[173]MO(M,0)):[151]36,Q[173]10[170].99:[158]5500
1362 [153][200](D$,20)[166]31)"CONT     "Q[171]10[172][181](Q[173]10)"CMD%CMDCMDCMD.CMDCMDCMDCMDCMDCMD";
1364 U$[178][196]([181](Q[173]10)):[153][200]("    ",5[171][195](U$))U$:[137]1100
1390 Q[178][181](Q[173]10):[153]"SYS"[202](K$,8[172]Q[170]1,8);:[142]
1400 [139]Z2[137]1103
1401 [139]M[178]20[137]8200
1402 [153]D$"(null)DAS MONSTER GREIFT AN - ";
1405 Q[178][194](2044)[170]4:[129]I[178]0[164]3:[151]2044[170]I,Q[170]I:[130]:[158]5812
1410 [139]W[178]0[176]100[172][187](TI)[177]SG[172][186](G)[137]1420
1411 [153]"DU PARIERST,":[158]5688:[129]I[178]0[164]80:[130]:[158]5912:[129]I[178]0[164]80:[130]
1412 [158]6829
1414 [129]I[178]0[164]75:[130]:Q[178]Q[171]4:[129]I[178]0[164]3:[151]2044[170]I,Q[170]I:[130]:[158]6852
1415 [151]S[170]8,15[172][187](TI)[170]194:[151]S[170]11,21:[151]S[170]15,17
1416 [129]I[178]0[164]299:[130]:[151]S[170]11,20:Q[178]Q[170]4:[129]I[178]0[164]3:[151]2044[170]I,Q[170]I:[130]:[158]6026
1418 [129]I[178]0[164]99:[130]:[158]5688:[129]I[178]0[164]99:[130]:[158]5755
1419 [129]J[178]0[164]99:[130]:Q[178]Q[171]4:[158]5862:[129]I[178]0[164]3:[151]2044[170]I,Q[170]I:[130]:[137]1100
1420 [153]"ES TRIFFT!":Q[178]Q[171]4:[129]I[178]0[164]3:[151]2044[170]I,Q[170]I:[130]
1421 [129]I[178]15[164]1[169][171]5:[151]S[170]24,16[171]I:[158]6038:[129]J[178]1[164]I:[130]:[151]S[170]24,0:[158]6047
1423 [129]J[178]1[164]I:[130]J,I:[129]I[178]1[164]15[169]2:[151]S[170]24,16[171]I:[158]6038:[129]J[178]1[164]I:[130]
1424 [151]S[170]24,0:[158]6047:[129]J[178]1[164]I:[130]J,I:[158]6871
1425 Q[178]Q[170]4:[129]I[178]0[164]3:[151]2044[170]I,Q[170]I:[130]
1426 [129]J[178]0[164]99:[130]:Q[178]Q[171]4:[158]5862:[129]I[178]0[164]3:[151]2044[170]I,Q[170]I:[130]
1427 J[178]SU[172]30:I[178][181](2[172]MO(M,1)[172][255][173](1[171](ZO[177]0))):LE[178]LE[171]1[170](I[177]J)[172](I[171]J):[139]LE[179]0[167]LE[178]0
1428 [141]10025:[137]1100
1430 [153]"ATTACKIERE GEGNER - ";:[139]W[178]0[167][153]"WOMIT?":[137]1100
1440 [139]M[178]0[167][153]"WELCHEN GEGNER?":[137]1100
1442 [158]5688:[129]I[178]0[164]80:[130]:[158]5912:[129]I[178]0[164]80:[130]:[158]6890
1444 [129]I[178]0[164]80:[130]:[158]6178:[151]S[170]4,128
1450 [129]I[178]0[164]80:[130]:[139]100[172][187](TI)[179]SG[172][186](G)[176]Z2[177]0[137]1460
1452 [139]M[178]20[137]8400
1455 [153]"DU VERFEHLST,":Q[178][194](2044)[170]4:[129]I[178]0[164]3:[151]2044[170]I,Q[170]I:[130]:[158]6304
1456 [129]J[178]0[164]400:[130]:[158]6178:[129]J[178]0[164]99:[130]:[158]6112
1457 Q[178]Q[171]4:[129]I[178]0[164]3:[151]2044[170]I,Q[170]I:[130]:[129]J[178]0[164]99:[130]:[158]5912
1458 [129]J[178]0[164]99:[130]:[137]1478
1460 [158]6240:[153]"GETROFFEN!":[151]S[170]5,42:[151]S[170]6,51:[151]S,71:[151]S[170]4,129
1462 [129]I[178]0[164]6:[158]6314:[129]J[178]2[164]8[172][187](1)[170]3:[151]S[170]1,J:[130]
1464 [158]6334:[129]J[178]0[164]20:[130]J,I:[139]M[178]20[167][151]V[170]45,13:[151]V[170]46,13
1466 [151]S[170]4,128:[129]I[178]0[164]200:[130]
1468 I[178]WA[172]3:J[178][181](MO(M,2)[173](1[171](Z1[177]0))):VI[178]VI[171]1[170](I[177]J)[172](I[171]J):[139]VI[179]0[167]VI[178]0
1470 Q[178][181](VI[172]1E3[173]MO(M,0)):[151]36,Q[173]10[170].99:[158]5500
1472 [153][200](D$,20)[166]31)"CONT     "Q[171]10[172][181](Q[173]10)"CMD%CMDCMDCMD.CMDCMDCMDCMDCMDCMD";
1474 U$[178][196]([181](Q[173]10)):[153][200]("    ",5[171][195](U$))U$
1476 [158]6178:[129]J[178]0[164]99:[130]:[158]6112:[129]I[178]0[164]99:[130]:[158]5912:[129]J[178]0[164]99:[130]
1478 [151]V[170]21,240:[158]5688:[129]I[178]0[164]99:[130]:[158]5755
1480 [139]VI[177]0[137]1100
1481 [158]5640:MH[178]8:[153]D$"PRINT(null)DAS MONSTER IST TOT!
1482 IFPEEK(P)<99THENPOKE16584+PEEK(P),0:IFM=20GOTO8300
1483 SYS6529:FORI=0TO14STEP7:POKES+I+5,0:POKES+I+6,252:POKES+I+4,129:POKES+I+4,128
1484 NEXT:FORI=0TO66:POKEV+21,PEEK(V+21)OR240:POKEV+21,PEEK(V+21)AND15:NEXT
1486 GOSUB10010:FORI=0TO39:POKE1864+I,32:NEXT
1490 J=G:G=G+M/16:M=0:IFG>104.9THENG=104.9
1492 IFINT(G)=INT(J)GOTO1100
1494 SYS5640:PRINTD$"[153][211] DEIN ERFAHRUNGSWERT ERH\HT SICH,
1495 [158]6529:[129]I[178]0[164]14[169]7:[151]S[170]I[170]5,0:[151]S[170]I[170]6,252:[151]S[170]I[170]4,33:[151]S[170]I[170]4,32
1496 [130]:[141]10005:[137]1100
1500 [139][194](P)[178]240[137]1130
1502 [153]"GEHE VORW[RTS - OK,";:[139]H[178]0[175][194](P)[178]0[137]1520
1510 [153]"CMDCMDCMDBOING!":[158]5640:[153]D$"(null)&AUA. ICH BIN VOR ";
1511 [139]M[177]0[167][153]"CMD'S MONSTER";:[137]1515
1512 [139]H[178]255[167][153]"DIE WAND";:[137]1515
1513 [153]"EINE T]R";
1515 [153]" GELAUFEN,&":[137]1100
1520 P[178]P[170]A(A):[137]1000
1530 [153]"DREHUNG NACH LINKS - OK,";:[139]M[177]0[167][153]"CMDCMDCMDERST K[MPFEN,":[137]1100
1532 A[178]A[171]1:[139]A[179]0[167]A[178]3
1534 [137]1000
1540 [153]"DREHUNG NACH RECHTS - OK,";:[139]M[177]0[167][153]"CMDCMDCMDERST K[MPFEN,":[137]1100
1542 A[178]A[170]1:[139]A[178]4[167]A[178]0
1544 [137]1000
1550 [153]"GEHE DURCH DIE T]R - OK,";:[139]M[177]0[167][153]"CMDCMDCMDERST K[MPFEN,":[137]1100
1551 [139](H[179]200[175]H[177]99)[176]H[178]250[137]7000
1552 [139][194](P)[178]240[175]A[178]2[167][141]2200:[137]7100
1553 [139]H[178]240[175]W[178]0[167][141]2100:[129]I[178]0[164]1E3:[130]:[137]1520
1554 [139]H[177]0[175]W[178]0[175]H[179]255[137]1520
1555 [139]W[178]0[175][194](P)[177]0[175]H[178]0[167]M[178]0:[137]1520
1556 [139](H[178]0[175][194](P)[178]0)[176]H[178]255[167][153]"CMDCMDCMDDURCH WELCHE T]R?":[137]1100
1557 [158]5640:[153]D$"(null)&ICH BEKOMME DIE T]R NICHT AUF,&":[137]1100
1560 [153]"R]CKZUG - OK,CMDCMDCMD";:[139][194](P)[177]0[175][194](P[171]A(A))[178]0[175]W[178]1[137]1554
1561 [139][194](P[171]A(A))[178]0[137]1566
1562 [139][194](P)[178]82[175]A[178]1[167]A[178]3:H[178]250:[137]7000
1563 [153]"RUMMS!":[158]5640:[153]D$"(null)&AU. ICH HABE ETWAS HARTES IM R]CKEN,&
1564 GOTO1100
1565 IFPEEK(P)<99THENPOKE16684+PEEK(P),VI
1566 IFPEEK(P)=240GOTO1563
1567 M=0:P=P-A(A):GOSUB10010:PRINTLEFT$(D$,22)B$:GOTO1000
1570 PRINT"WAFFE ";:IFW=0THENPRINT"ZIEHEN";:GOSUB5000:GOTO1578
1572 PRINT"WEGSTECKEN";:GOSUB5010
1578 PRINT" - OK,":GOTO1100
1580 PRINT"ENTZ]NDE FACKEL - OK,";:IFLI>0THENPRINT"[157][157][157]SIE BRENNT DOCH!":GOTO1100
1581 IFFA=0THENPRINT"[157][157][157]ICH HABE KEINE!":GOTO1100
1582 IFLO=0THENLO=200:FA=FA-1
1583 LI=LO:LO=0:GOSUB5020:IFPEEK(P)=0GOTO1000
1584 GOTO1100
1590 PRINT"L\SCHE FACKEL - OK,";:IFLI=0THENPRINT"[157][157][157]ICH HABE KEINE AN,":GOTO1100
1592 LO=LI:LI=0:GOSUB5030:GOTO1000
1600 IFPEEK(P)=240GOTO2000
1602 IFPEEK(P)=82GOTO8000
1605 FORI=2TO5:PRINTLEFT$(D$,I)""LEFT$(B$,37):NEXT
1610 FORI=15TO19:PRINTLEFT$(D$,I)""LEFT$(B$,37):NEXT:FORI=6TO14
1620 PRINTLEFT$(D$,I)"[152]"LEFT$(B$,7)"[155]  [152] [155]"LEFT$(B$,17)"[152] [155]  [152]"LEFT$(B$,7):NEXT
1630 FORI=0TO3:PRINTLEFT$(D$,I+2)""LEFT$(B$,I*2)"[146][184][183]"SPC(33-I*4)"[185][186]";
1640 PRINTLEFT$(B$,I*2)
1650 PRINTLEFT$(D$,18-I)""LEFT$(B$,I*2)"[146][188][187]"SPC(33-I*4)"[189][190]"LEFT$(B$,I*2):NEXT
1670 PRINTLEFT$(D$,5)SPC(8)"[155][162][162][152][183]"SPC(17)"[185][155][162][162]
1675 [153][200](D$,15)[166]8)"NEWNEWWAITPRINT#RND"[166]17)"EXPLISTNEWNEW":[139][194](P)[177]199[137]1700
1680 [153][166]24)"FOREXPCOSVERIFYLOGRNDONCMDCMDCMDCMDCMDCMDFOREXPCOS  VERIFY  ONCMDCMDCMDCMDCMDCMDFOR  WAITFREUSRVERIFYPOSSQRCMDCMDCMDCMDCMDCMDFORONFREUSRLEFT$RIGHT$LISTEXPCOS";
1682 [153]"ONCMDCMDCMDCMDCMDCMDLOGRNDEXPCOS";:[139][194](16484[170][194](P))[177]0[137]1730
1690 [153]"CMDCMDFOR  ONCMDCMD(null)MID$(null)MID$ONCMDCMD  ONCMDCMDCMDCMDLIST  EXPCOSONCMDCMDCMDCMDEXPCOS":[137]1730
1700 H[178][194](P):[153][200](D$,3)[166]16)"SYS"[200](H$(H[171]200),7)"CMDCMDCMDCMDCMDCMDCMD"[202](H$(H[171]200),8)
1730 [139][194](P[170]A(A))[177]0[137]1750
1740 [129]I[178]13[164]9[170]([194](P)[177]99)[169][171]1:[153][200](D$,I)[166]17)"VERIFY     ";:[130]
1742 [153]"WAITSTOPCMDCMDCMD#CMDCMD";:[139]A[178]1[176]A[178]2[167][153]"";
1745 [153]"(null)":[129]I[178]0[164]4:[151]55833[170]I,9:[130]
1750 [139][194](P[170]A(AL))[177]0[137]1770
1760 [129]I[178]0[164]400[169]40:[129]J[178]0[164]2:[151]55617[170]I[170]J,9:[130]J,I
1770 [139][194](P[170]A(AR))[177]0[137]1790
1780 [129]I[178]0[164]400[169]40:[129]J[178]0[164]2:[151]55651[170]I[170]J,9:[130]J,I
1790 H[178][194](4329):[139][194](P)[179]99[137]1300
1792 [139][194](P)[177]199[175][194](P)[179]230[137]6500
1795 [137]1100
1800 [129]I[178]2[164]19:[153][200](D$,I)""[200](B$,37):[130]
1810 [153][200](D$,9)[166]53)"PRINT#ES IST DUNKEL":[137]1100
1900 [153]"INVENTUR DER AUSR]STUNG - OK,
1905 FORI=2TO19:PRINTLEFT$(D$,I)""LEFT$(B$,37):NEXT:Q=PEEK(V+21):POKEV+21,0
1910 PRINT"[158]DU BESITZT:":PRINT""WA$(WA)". "SU$(SU)".
1912 [153]""GD"GOLDM]NZEN.";
1913 [139]KR[178]1[167][153]" DEN KRISTALL.
1914 PRINT"";:IFPE=1THENPRINT" DAS PENDEL.";
1915 IFKO=1THENPRINT" DEN KOMPA^.";
1916 IFUH=1THENPRINT" DIE UHR.
1918 [153]"";:[139]HS[177]0[167][153]HS"HEILSALBE.";:[139]HS[177]1[167][153]"CMDN.";
1919 [139]HT[177]0[167][153]HT"HEILTRANK.";:[139]HT[177]1[167][153]"CMDCMDCMDCMD[NKE.";
1920 [153]"";:[139]FE[177]0[167][153]FE"FEUERBALL.";:[139]FE[177]1[167][153]"CMDCMDCMDCMD[LLE.";
1921 [139]BL[177]0[167][153]BL"BLITZSCHLAG.";:[139]BL[177]1[167][153]"CMDCMDCMD[GE.
1922 PRINT"";:IFSH>0THENPRINTSH"SCHUTZZAUBER.";
1923 IFSW>0THENPRINTSW"WAFFENZAUBER
1924 [153]"";:[139]LZ[177]0[167][153]LZ"L[HMUNGSZAUBER.";
1925 [139]ME[178]1[167][153]" DEN MEGABLAST.
1926 PRINT"";:IFDI=1THENPRINT" DEN DIAMANTEN.
1989 [153][200](D$,18)""FA"FACKELN";:[139]FA[178]1[167][153]"CMDCMD";
1990 [153]" UND EINEN MAGISCHEN SACK,
1995 GETU$:IFU$>""OR(PEEK(56320)AND16)=0THENPOKEV+21,Q:GOTO1000
1999 GOTO1995
2000 POKEV+21,(PEEK(V+21))AND7:IFA=2GOTO2090
2005 PRINT"[159]";:FORI=0TO6:PRINTB$;:NEXT:PRINT"";
2010 FORI=0TO4:PRINTB$;:NEXT:PRINT"[153]";:FORI=0TO5:PRINTB$;:NEXT
2020 FORI=0TO50:POKE1625+157*RND(1),172:NEXT:FORI=13TO17:FORJ=0TO11
2030 PRINTLEFT$(D$,I)SPC(37*RND(1));:X=INT(3*RND(1)+1)
2040 FORE=1TOX:PRINT"[146][129][194][145][157]";:NEXT:PRINT"[193][157]";:ONXGOTO2070,2050,2060
2050 PRINT"[157][157][157][157][198][199][199][199][199][199][199][197][145][157][157][157][157][157][157][157][157][196]     [146][195][145][157][157][157][157][157][157][196] [145] [157]  [146][195][145][157][157][157]";
2060 PRINT"[157][157][157][198][199][199][199][199][197][145][157][157][157][157][157][157][196]   [146][195][145][157][157][157][157][196][145] [157] [146][195][145][157][157][157][157][198][199][199][197][145][157][157][157][157][196] [146][195][145][157][157][193]
2070 [130]J,I:[141]10010:[141]10005:[139]A[137]1100
2075 [139]TI$[179]"000010"[167][141]11000
2080 [129]I[178]0[164]3:[151]2044[170]I,202[170]I:[151]V[170]43[170]I,14:[130]:[158]6056:[139]K[178][255][167][141]11100
2085 [137]1100
2090 [129]I[178]2[164]16[169]2:[153][200](D$,I)"PRINT#";:[129]J[178]0[164]18:[153]">=";:[130]:[153]"";
2091 [129]J[178]0[164]18:[153]"=>";:[130]J,I:[141]10010:[141]10005
2092 [153][200](D$,4)[166]14)"LIST(null)         WAITSTEP";
2094 [129]I[178]1[164]12:[153][166]29)" VERIFY         WAIT ";:[130]:[153][166]29)"PRINTSTEP         (null)
2095 FORI=18TO19:PRINTLEFT$(D$,I)"[153]"LEFT$(B$,37):NEXT
2096 PRINTLEFT$(D$,6)SPC(16)"[144]VERLIES[157][157][157][157][157][157][157]  DES  [157][157][157][157][157][157][157] T_DES [157][157][157][157][157][157][157][211]":GOTO1100
2100 GOSUB10010:FORI=2TO19:PRINTLEFT$(D$,I)"[152]"LEFT$(B$,14)"[155]"LEFT$(B$,9);
2102 PRINT"[152]"LEFT$(B$,14):NEXT:FORI=2TO0STEP-1:FORJ=ITO0STEP-1
2103 PRINTLEFT$(D$,16+J+4*(I<2)+2*(I<1));
2104 PRINTSPC(14-I*4+2*(I=0)-J*2)"[152][188][187]"LEFT$(B$,7+8*I+4*J-4*(I=0))"[189][190]":NEXTJ,I
2105 PRINTLEFT$(D$,19)"[155]"LEFT$(B$,35)
2106 FORI=0TO1:FORJ=1TO1+I:PRINTLEFT$(D$,10+I*3+J)SPC(12-I*4)"[155]"LEFT$(B$,15+I*8)
2108 NEXTJ,I:PRINTLEFT$(D$,9)SPC(14)"[163][163][163][163][163][163][163][163][163][163][163]":FORI=2TO8
2110 PRINTLEFT$(D$,I)SPC(17)"[149]     ";:NEXT:PRINT"[157][157][157][157][145][145][145][144][146][211][145][145]#
2112 [158]5640:[153]D$"PRINT(null)DU GEHST EINE TREPPE HINAUF,":[142]
2200 [141]10010:[129]I[178]2[164]19:[153][200](D$,I)"PRINT#"[200](B$,14)"LIST"[200](B$,9);
2202 [153]"PRINT#"[200](B$,14):[130]:[153][200](D$,19)"PRINT#"[200](B$,37)
2204 [153][200](D$,18)"RND"[200](B$,35)"EXP
2206 PRINTLEFT$(D$,17)"[188][187][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][189][190]
2208 [153][200](D$,16)[166]6)"LOGRND"[200](B$,23)"EXPCOS
2210 PRINTLEFT$(D$,15)SPC(8)"[188][187][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][189][190]
2212 [153][200](D$,14)[166]12)"LOGRNDTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(EXPCOS":[129]I[178]1[164]4
2214 [153][200](D$,I[170]1)[166]5[170]I[172]2)"FREUSR"[200](B$,25[171]I[172]4)"POSSQR
2216 NEXT:FORI=7TO13:PRINTLEFT$(D$,I)SPC(17)"[149]     ";:NEXT:PRINT"[146][144][145][145][145][157][157][157][157][211][145][145]#
2218 [158]5640:[153]D$"PRINT(null)DU GEHST EINE TREPPE HINUNTER,":[151]51001,0:[142]
5000 [151]S[170]5,128[170]24:[151]S[170]6,247:[151]S[170]1,9[172][187](1)[170]36:[151]S[170]4,129:[129]I[178]0[164]250:[130]
5002 [151]S[170]12,128[170]10:[151]S[170]13,74:[151]S[170]8,15[172][187](1)[170]194
5004 [158]6914:[129]I[178]0[164]200:[130]:[151]S[170]11,20:[158]5755:W[178]1:[142]
5010 [158]5688:[129]I[178]0[164]200:[130]:W[178]0:[151]V[170]21,[194](V[170]21)[171]1
5011 [151]S[170]5,128[170]24:[151]S[170]6,247:[151]S[170]1,9[172][187](1)[170]36:[151]S[170]4,129
5012 [129]I[178]0[164]30[169]6:[151]S[170]1,40[171]I:[151]S[170]4,21:J[178]I[172]I:[151]S[170]4,129:J[178]I[174]1:[130]
5014 [151]S[170]4,128:[142]
5020 [151]S[170]5,128[170]24:[151]S[170]6,249:[151]S[170]4,129:[129]I[178]50[164]20[169][171].5:[151]S[170]1,I:[130]
5022 [129]I[178]21[164]40[169].5:[151]S[170]1,I:[130]:[151]S[170]4,128:[142]
5030 [151]S[170]5,128:[151]S[170]6,248:[151]S[170]1,42:[151]S[170]4,129:[129]I[178]0[164]150:[130]:[151]S[170]4,128:[142]
6000 [153]"\FFNE SCHATZTRUHE - OK,";
6005 [139]M[177]0[167][153]"CMDCMDCMDERST K[MPFEN!":[137]1100
6010 [139][194](P)[178]0[176][194](P)[178]82[176][194](P)[177]99[167][153]"CMDCMDCMDWELCHE TRUHE?":[137]1100
6020 Q[178][194](16484[170][194](P)):[139]Q[178]0[167][153]"CMDCMDCMDSIE IST SCHON AUF,":[137]1100
6030 [139]W[178]1[167][153]"CMDCMDCMDKEINE HAND FREI,":[137]1100
6040 [153][200](D$,14)[166]24)"FOR  ONCMDCMD(null)MID$(null)MID$ONCMDCMD  ONCMDCMDCMDCMDLIST  EXPCOSONCMDCMDCMDCMDEXPCOS"
6050 [151]16484[170][194](P),0:[158]5640:[153]D$"PRINT(null)";:[139]Q[177]13[137]6070
6060 [145]Q[137]6100,6100,6100,6100,6100,6110,6110,6110,6110,6190,6194,6136,6192
6070 [145]Q[171]14[137]6160,6170,6172,6174,6176,6180,6130,6148,6140,6120,6150,6200
6100 [153]"EIN "WA$(Q[170]1)"!":[139]WA[177]Q[170]1[137]6104
6101 WA[178]Q[170]1:[151]5687,WA[172]2[170]6[170]7[172](WA[178]2)[170]3[172](WA[177]4)[170]14[172](WA[178]6)
6104 [158]6517:[129]K[178]0[164]1:[129]I[178]0[164]14[169]7:[151]S[170]5[170]I,145:[151]S[170]6[170]I,252:[151]S[170]4[170]I,33
6106 [129]J[178]0[164]99:[130]J,I:[129]I[178]0[164]14[169]7:[151]S[170]4[170]I,32:[130]I,K:[151]S,157:[151]S[170]1,69
6107 [129]I[178]0[164]500:[130]:[129]I[178]0[164]20:[151]S[170]I,0:[130]
6108 [141]10005:[137]1100
6110 [153]"EIN ";:[139][201](SU$(Q[171]4),1)[178]"G"[167][153]"CMDE ";
6112 [153]SU$(Q[171]4)"!":[139]SU[177]Q[171]4[137]6104
6114 SU[178]Q[171]4:[137]6104
6120 I[178]50[172]LV[171](LV[177]5)[172]200[171](LV[177]6)[172]200[171](LV[177]7)[172]200[171](LV[178]9)[172]950:GD[178]GD[170]I:M[178]I[173]50
6122 [153]I"GOLDM]NZEN!":[129]I[178]0[164]12:[151]S[170]5,5:[151]S[170]6,69:[151]S[170]1,18[172][187](1)[170]120
6124 [151]S[170]4,17:[129]J[178]0[164]23:[130]:[151]S[170]4,16:[130]:[137]1490
6130 [153]"10 FACKELN!":FA[178]FA[170]10:[151]S[170]5,88:[151]S[170]6,135:[151]S[170]4,17
6132 [129]I[178]5[164]60[169]5:[129]J[178]I[164]I[170]10:[151]S[170]1,J:[130]J,I:[151]S[170]4,16:[137]1100
6136 [153]"EINE UHR!":UH[178]1:[151]S[170]5,88:[151]S[170]6,140:[151]S[170]4,65:[151]S[170]3,43
6138 [129]I[178]5[164]60[169]5:[129]J[178]I[164]60:[151]S[170]1,J:[130]J,I:[151]S[170]4,64
6139 [129]I[178]60[164]255:[151]S[170]1,I:[130]:[151]S[170]1,0:[137]1100
6140 I[178]1[170][181](LV[173]2):[153]I"HEILSALBEN!":HS[178]HS[170]I
6142 [129]K[178]0[164]3:[151]S,207[171]K[172]50:[151]S[170]1,34[170]K[172]35:[151]S[170]7,219:[151]S[170]8,43
6144 [129]I[178]0[164]7[169]7:[151]S[170]5[170]I,145:[151]S[170]6[170]I,252:[151]S[170]4[170]I,17:[130]
6146 [129]I[178]0[164]300:[130]I,K:[129]I[178]0[164]7[169]7:[151]S[170]4[170]I,16:[130]
6147 [129]I[178]0[164]500:[130]:[129]I[178]0[164]20:[151]S[170]I,0:[130]:[137]1100
6148 I[178]LV[173]2:[153]I"HEILTR[NKE!"::HT[178]HT[170]I:[137]6142
6150 [153]SS$(LV)" - IGITT!":[151]S[170]5,15:[151]S[170]6,240:[151]S[170]4,33
6152 [129]I[178]60[164]5[169][171]3:[129]J[178]I[170]15[164]I[169][171]1:[151]S[170]1,J:[130]J,I:[151]S[170]4,0:[137]1100
6160 I[178]1[170]LV:[153]I"FEUERB[LLE!":[158]5640:[153]D$"(null)ZAUBERWAFFE. VERLETZT GEGNER,
6161 FE=FE+I
6162 SYS6560:FORJ=0TO12:FORI=25TO42:POKES+8,I:NEXTI,J:POKES+4,32:POKES+11,32
6166 FORI=0TO20:POKES+I,0:NEXT:GOTO1100
6170 I=LV+1:PRINTI"BLITZSCHL[GE!":SYS5640:PRINTD$"[211]ZAUBERWAFFE. VERLETZT GEGNER STARK,
6171 BL[178]BL[170]I:[137]6162
6172 [153]"3 SCHUTZZAUBER!":[158]5640:[153]D$"(null)VERDOPPELT KURZ DEN R]STUNGSSCHUTZ,
6173 SH=SH+3:GOTO6162
6174 PRINT"3 WAFFENZAUBER!":SYS5640:PRINTD$"[211]VERDOPPELT WAFFENKRAFT F]R KURZE ZEIT,
6175 SW[178]SW[170]3:[137]6162
6176 [153]"3 L[HMUNGSZAUBER!":[158]5640:[153]D$"(null)PARALYSIERT DEN GEGNER F]R KURZE ZEIT,
6177 LZ=LZ+3:GOTO6162
6180 PRINT"MEGABLAST - NUR IM FREIEN VERWENDEN!
6181 [158]5640:[153]D$"(null)KEINE ABGABE AN PERSONEN UNTER 18 JH,
6184 SYS6595:FORJ=0TO20:FORI=25TO87STEP2:POKES+8,I+J*5:NEXTI,J
6186 POKES+4,32:POKES+11,16:FORI=0TO20:POKES+I,0:NEXT:ME=1:GOTO1100
6190 PRINT"EIN MAGISCHES PENDEL!":PE=1
6191 SYS6647:GOTO6138
6192 PRINT"EIN MAGISCHER KRISTALL!":KR=1:GOTO6191
6194 PRINT"EIN KOMPA^!":KO=1:GOTO6191
6200 PRINT"EINE FALLE - ";
6202 J=INT(4*RND(1)+1):IFLV<4ANDJ>3GOTO6202
6204 ONJGOTO6210,6220,6330,6400
6210 PRINT"EXPLOSION!":SYS6668
6212 FORI=0TO5:POKEV+33,7:POKEV+32,7:J=2^2:POKEV+32,10:POKEV+33,10:J=2*2:NEXT
6214 POKEV+33,11:POKEV+32,11:J=300-50*SU:LE=LE-J:IFLE<0THENLE=0
6216 GOSUB10025:GOTO1100
6220 IFLV=9GOTO6202
6221 PRINT"FALLT]R!":SYS5640:PRINTD$"[211]DU F[LLST,,,":E=LV:LV=LV+1
6222 H=7935+1474*INT(E/3)+22*(E-INT(E/3)*3):IFE=3THENH=H+44
6224 IFE=5THENH=H-44
6226 P=H+67+134*INT(9*RND(1))+2*INT(9*RND(1)):IFPEEK(P)>0GOTO6226
6228 GOSUB6300:POKES+5,64:POKES+6,250:POKES+4,17:FORI=200TO0STEP-1:POKES+1,I
6230 FORJ=0TO2:NEXTJ,I:POKES+4,16:LI=0:GOTO7105
6300 FORI=19TO2STEP-1:PRINTLEFT$(D$,I)"[152][200][201][200][201][200][201][200][201][200][201][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][146][203][202][203][202][203][202][203][202][203][202]
6320 [130]:[142]
6330 [153]"EIN GEIST!":[158]6444
6340 [129]I[178]60[164]0[169][171]3:[129]J[178]I[170]10[164]I[169][171]1
6342 [151]S[170]1,J:[130]J,I:[158]6496
6350 J[178]10:[129]I[178]0[164]30:J[178]14[171]J:[151]V[170]33,J:[151]V[170]32,J:[151]S[170]8,200[172][187](1)
6360 [130]:[151]S[170]11,128:[151]V[170]33,11:[151]V[170]32,11:[151]V[170]21,0
6370 J[178]SU[172]30[171](Z0[177]0)[172]30[172]SU:I[178][181](100[172]LV[170]100):LE[178]LE[171]1[170](I[177]J)[172](I[171]J):[139]LE[179]0[167]LE[178]0
6380 [141]10025:[137]1100
6400 [153]"TELEPORT!":[158]5640:[153]D$"(null)DU WIRST WEGGESCHLEUDERT,,,
6410 E=INT(9*RND(1)):IFE+1=LVGOTO6410
6420 LV=E+1:H=7935+1474*INT(E/3)+22*(E-INT(E/3)*3):IFE=3THENH=H+44
6424 IFE=5THENH=H-44
6426 P=H+67+134*INT(9*RND(1))+2*INT(9*RND(1)):IFPEEK(P)>0GOTO6426
6428 FORI=2TO19:PRINTLEFT$(D$,I)"[151]"LEFT$(B$,37):NEXT
6430 SYS6631:FORI=0TO230STEP1.5
6432 POKE55337+40*INT(18*RND(1))+37*RND(1),15*RND(1):POKES+1,I:NEXT:POKES+4,38
6434 LI=0:GOTO7105
6500 IFMH>0GOTO1100
6510 M=INT(4*RND(1)+LV*2-1):IFM=20GOTO6510
6520 Q=16676:POKEQ,M:POKEQ+100,MO(M,0):GOTO1305
7000 POKEV+21,PEEK(V+21)AND3:IFH=250THENIFPEEK(P)=0GOTO7008
7002 IFH=250THENGOSUB2100:LV=9:GOTO7100
7006 H=H-100:IFH-LV<LVTHENGOSUB2100:LV=LV-1:GOTO7100
7008 GOSUB2200:LV=LV+1
7100 P=P+A(A)*2
7105 U$="VERLIES (GEW"
7110 IFPEEK(P)=82THENU$=U$+"0)":GOTO7130
7120 U$=U$+RIGHT$(STR$(LV),1)+")"
7130 LOADU$,8,1
8000 IFU$="L"GOTO1100
8005 FORI=2TO18:PRINTLEFT$(D$,I)"[152]"LEFT$(B$,37):NEXT:POKEV+21,PEEK(V+21)AND15
8010 FORI=0TO2:PRINTLEFT$(D$,I+2)"[152]"LEFT$(B$,2*I)"[146][184][183]"SPC(33-I*4)"[185][186]";
8012 PRINTLEFT$(B$,I*2):NEXT:FORI=5TO13:PRINTLEFT$(D$,I)"      "SPC(25);
8014 PRINT"      ":NEXT
8020 FORI=0TO2:PRINTLEFT$(D$,16-I)"[152]"LEFT$(B$,2*I)"[146][188][187]"SPC(33-I*4)"[189][190]";
8022 PRINTLEFT$(B$,I*2):NEXT:FORI=7TO31:PRINT""SPC(I)"[164]"
8024 PRINTLEFT$(D$,13)SPC(I)"[164]":NEXT
8030 IFA=1GOTO8100
8032 IFA=2THENFORI=320TO600STEP40:FORJ=35TO37:POKE55296+I+J,9:NEXTJ,I:GOTO1100
8034 IFA=0THENFORI=320TO600STEP40:FORJ=1TO3:POKE55296+I+J,9:NEXTJ,I:GOTO1100
8040 FORI=7TO13:PRINTLEFT$(D$,I)SPC(17)"[149]     ";:NEXT
8050 PRINT"[144][145][145][145][157][157][157][157][146][211][145][145]#[145][157][157][157][157][145][152][164][164][164][164][164][164][164][157][157][157][157][157][157][157][184][149][162][162][162][162][162][152][186][157][157][157][157][157][157][157]";
8052 FORI=0TO4:PRINT"  [146][157][157][157][157][157][157][157]";:NEXT:PRINT"[188][149][162][162][162][162][162][146][152][190]":GOTO1100
8100 IFDI=1GOTO1100
8105 PRINT""SPC(58)"[218][213][213][219][157][157][157][157][220][144]  [146][255][157][157][157][144]  [146][157][157][165][167]"
8110 PRINT""SPC(9)"[204][223][146][185][186][223][146][157][157][157][157][157][206]    [223][157][157][157][157][157]     [223][157][157][157][157][157][157][146][188][187][204]   ";
8112 PRINT"[157][157][157][157][146][206][169][189][208][169]  [223][145][157][157][157]  [146][209][187][223][207][157][157][157][157][145]   [146][205][189][190][145][157][157][157][157][157][157][169]     [145][157][157][157][157][157]";
8114 M=20:PRINT"[169]    [146][207][145][157][157][157][157][157][169][146][184][183][169][146][205]
8116 [153]""[166]57)"(null)    WAIT(null)CMDCMDCMDCMDCMDCMDCMDSQR      WAITFRECMDCMDCMDCMDCMDCMDCMDCMD (null)    (null) FNWAITFREUSR
8118 PRINT""SPC(95)"[185] [146][214]    [146][214] [146][183][189][190][223][146][157][157][157][157][157][157][157][157][157][157][157][157][157][215][215] [189][162][162][146][187] [215][215]
8120 [158]6933:M[178]20:VI[178][194](16766):[137]1330
8200 [153]D$"(null)DER DRACHE SPEIT FEUER!":[151]2045,227:[129]I[178]0[164]300:[130]
8210 [151]V[170]4,173:[151]V[170]5,107:[151]V[170]28,[194](V[170]28)[176]4:[151]V[170]41,8:[151]2042,228
8212 [151]V[170]23,[194](V[170]23)[175]251:[151]V[170]29,[194](V[170]29)[175]251
8215 [151]S[170]5,192:[151]S[170]6,251:[151]S[170]1,25:[151]S[170]4,129
8220 [151]V[170]21,[194](V[170]21)[176]4:[129]I[178]0[164]80:[130]:[129]I[178]0[164]1:[151]2042,229[170]I
8230 [129]J[178]0[164]80:[130]J,I:[151]2042,228:[151]V[170]4,161:[151]V[170]5,97:[151]V[170]23,[194](V[170]23)[176]4
8240 [151]V[170]29,[194](V[170]29)[176]4:[129]I[178]0[164]80:[130]
8242 [129]I[178]0[164]1:[129]J[178]0[164]80:[130]:[151]2042,229[170]I:[130]
8250 K[178]0:[129]I[178]0[164]20:K[178]1[171]K:[151]2042,230[170]K:[151]V[170]33,K[172]6[170]4:[151]V[170]32,K[172]6[170]4
8260 [129]J[178]0[164]20:[130]J,I:[151]V[170]33,11:[151]V[170]32,11:[151]2042,229:[151]S[170]4,128
8270 [129]I[178]0[164]99:[130]:[151]V[170]21,[194](V[170]21)[175]251:[129]I[178]0[164]500:[130]:[151]2045,224
8280 I[178]300[170]75[172](Z0[177]0):J[178]SU[172]30:LE[178]LE[171](I[171]J):[139]LE[179]0[167]LE[178]0
8290 [151]V[170]28,[194](V[170]28)[175]251:[141]10025:[137]1100
8300 DI[178]1:[129]I[178]2[164]7:[151]V[170]39[170]I,8:[151]2040[170]I,230:[130]
8302 [151]V[170]23,[194](V[170]23)[176]252:[151]V[170]29,[194](V[170]29)[176]252:[151]V[170]28,[194](V[170]28)[176]252
8303 [129]I[178]4[164]17:[153][200](D$,I)[166]10)[200](B$,19):[130]
8304 [153]"PRINT#TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO"[200](D$,13)[166]10)"TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO
8305 POKEV+21,PEEK(V+21)OR252
8310 POKES+12,0:POKES+13,254:POKES+8,3:POKES+11,129:POKES+11,128
8320 FORI=0TO50:J=INT(6*RND(1)):POKEV+4+J+J,110+99*RND(1)
8322 POKEV+5+J+J,60+99*RND(1):POKE2042+J,228+4*RND(1):NEXT
8330 POKEV+28,0:POKEV+21,PEEK(V+21)AND3:POKEV+41,3:POKEV+4,173:POKEV+5,110
8332 POKEV+23,0:POKEV+29,PEEK(V+29)AND3:POKE2042,232:POKEV+21,PEEK(V+21)OR4
8350 SYS5640:PRINTD$"[153][211]DU BEKOMMST DEN MAGISCHEN DIAMANTEN!":J=232:POKE198,0
8355 POKE56295,1:POKE2023,36:POKES+5,128:POKES+6,253:POKES+1,50:POKES+4,39:M=100
8360 J=J+1:IFJ=238THENJ=232:POKES+4,38
8362 POKE2042,J:FORE=0TO22:NEXTE:GETU$:IFU$=""GOTO8360
8380 POKE2023,32:POKEV+21,PEEK(V+21)AND3:POKEV+41,PEEK(5687):POKEV+28,240:GOTO1486
8400 PRINT"PRALLT AB!":SYS6304:POKES+12,0:POKES+13,250:POKES+8,30:POKES+11,21
8402 POKES+11,20:FORJ=0TO400:NEXT:SYS6178:FORJ=0TO99:NEXT:SYS6112
8404 FORJ=0TO99:NEXT:SYS5912:GOTO1458
9000 PRINT"FEUERE MEGABLAST AB - OK.[157][157][157]";:IFME=0THENPRINT"HABE ICH NICHT,":GOTO1100
9010 POKES+6,0:POKES+13,0:POKES+5,13:POKES+12,13:POKES+1,3:POKES+8,2
9020 POKES+4,129:POKES+11,129:FORI=0TO20:FORJ=0TO4:Q=J*J*J/4+.9+6*(J=4)
9030 POKEV+33,Q:POKEV+32,Q:NEXTJ,I:POKEV+33,11:POKEV+32,11
9040 IFPEEK(P)=240GOTO9100
9050 POKEV+21,0:SYS5640:PRINTD$"[211]DAS GANZE GEW\LBE ST]RZT EIN,,,
9060 LE[178]0:[141]10025:[137]15010
9100 [129]I[178]0[164]108:[158]7026:P[178]2[172]2:[130]:[151]V[170]21,0
9105 [158]5640:[153]D$"(null)DER B\SE ZAUBERER IST VERNICHTET!
9110 SYS5640:PRINTD$" DU HAST NUN ALLE MACHT DER WELT,":GOTO18000
10000 PRINT"[153][147]":GOSUB10010
10005 PRINTLEFT$(D$,21)"[150]WAFFE:[158]"LEFT$(WA$(WA),7);
10006 PRINTTAB(14)"[150]SCHUTZ:[158]"LEFT$(SU$(SU),7)"[150] ERFAH,:[158]    [157][157][157][157]"INT(G-5):RETURN
10010 PRINT"[154]"LEFT$(B$,39):FORI=1TO18:PRINT" "SPC(37)" ";:NEXT
10020 PRINT""LEFT$(B$,39)""SPC(9)"[181][179][180][179][180][182] VERLIES [181][179][180][179][180][182][158]
10022 [129]I[178]0[164]760[169]40:[151]1063[170]I,32:[130]
10025 [151]2,LE[173]10[170].99:[158]5408
10026 U$[178][196]([181](LE[173]10)):[153][200](D$,20)"CONT"[201](U$,[195](U$)[171]1);
10027 [153]LE[171]10[172][197](U$)"CMDCMDCMD.%  ":[142]
11000 K[178]5:[141]12000:K[178][255]:[142]
11100 [129]J[178]6[164]12:K[178]J:[139]K[178]7[167][141]13000
11110 [141]12000:[130]:[142]
12000 K[178]49152[170]120[172]K:[151]50836,K[173]256:[151]50835,K[171]256[172][194](50836):[158]50832:[142]
13000 [151]2044,206:[151]2046,207:[129]I[178]0[164]500:[130]:[151]S[170]5,0:[151]S[170]6,249
13010 [151]S[170]4,129:[129]I[178]0[164]33:[151]V[170]33,16[172][187](1):[151]S[170]1,180[172][187](1):[130]
13020 [151]S[170]4,128:[151]V[170]33,11:[129]I[178]0[164]500:[130]:[151]2044,202:[151]2046,204:[142]
14000 [139][194](51000)[178]13[175]TI$[177]"035959"[167][151]51000,0:K[178]2:[137]12000
14002 [139]W[178]1[175][194](P)[178]240[167]K[178]0:[137]14200
14004 [139][194](51001)[178]0[175][194](P)[178]240[175]DI[178]0[167]K[178]3:[137]14200
14010 [139]TI$[177]"045959"[167]K[178]1:[137]14200
14015 [139][194](P)[179][177]240[167][142]
14020 [139]DI[178]1[167][158]5640:[153]D$"PRINT(null)DER ZAUBERER SAGT: &ENDLICH BIST DU":[151]51000,0
14022 [139]DI[178]1[167][158]5640:[153]D$" WIEDER DA. GIB MIR DEN DIAMANTEN!&":TI$[178]"030000
14100 RETURN
14150 PRINT"]BERGIB DIAMANTEN - OK,";:IFDI=0THENPRINT"[157][157][157]DU HAST IHN NICHT,":GOTO1100
14160 IFPEEK(P)<>240THENPRINT"[157][157][157]KEINER WILL IHN,":GOTO1100
14170 K=4
14200 GOSUB12000:FORI=0TO3:POKE2044+I,202+I:POKEV+43+I,14:NEXT:SYS6056
14220 LE=0:GOSUB13000:GOTO10025
15000 GOSUB10025:SYS5640:PRINTD$"[153][211]DEINE LEBENSENERGIE IST ZU ENDE,
15010 [158]5640:[158]5640:[153]D$"PRINT_ DU BIST TOT _":[151]V[170]21,0:[158]5812
15020 [129]I[178]2[164]19:[153][200](D$,I)"STOP"[200](B$,37):[130]:[151]V[170]28,0
15030 [129]I[178]4[164]7:[151]2040[170]I,205[170]I:[151]V[170]39[170]I,0:[151]V[170]I[170]I[170]1,[194](V[170]I[170]I[170]1)[171]32
15040 [151]V[170]I[170]I,[194](V[170]I[170]I)[171]8:[130]:[151]V[170]21,240:[129]I[178]0[164]4:[129]J[178]0[164]333:[130]
15050 [129]J[178]43[164]47:[151]V[170]J,[171]11[172](I[178]1)[171]12[172](I[178]2)[171]15[172](I[178]3)[171](I[178]4):[130]J,I
16000 [156]:S[178]54272:[129]I[178]0[164]23:[151]S[170]I,0:[130]:[129]I[178]0[164]10:[135]T0(I),T1(I),TN(I):[130]
16001 [151]S[170]5,90:[151]S[170]6,170:[151]S[170]12,10:[151]S[170]13,90
16002 [129]I[178]0[164]10:X[178]T0(I):[141]17000:[151]S[170]1,J:[151]S,K:[151]S[170]4,33
16004 X[178]T1(I):[139]X[177]0[167][141]17000:[151]S[170]8,J:[151]S[170]7,K:[151]S[170]11,33
16006 [129]J[178]1[164]TN(I):[129]K[178]6[164]10:[151]S[170]24,K:[130]:[129]K[178]15[164]7[169][171]1:[151]S[170]24,K
16008 [130]K,J:[151]S[170]4,32:[151]S[170]11,32:[130]:[158]5640:[137]18000
16999 X[178]X[174]1.02
17000 J[178][181](X[173]256):K[178]X[171]256[172]J:[142]
18000 [158]5640:[153]"SYS(null)NOCH EIN SPIEL? (J/N)
18010 GETU$:IFU$<>"N"ANDU$<>"J"GOTO18010
18020 IFU$="N"THENPRINT"[147]":SYS64738
18030 POKE53269,0:PRINT"[147][151]L[207]"CHR$(34)"VERLIES (KERK)"CHR$(34)",8R[213]
18040 [151]631,19:[151]632,13:[151]633,13:[151]198,3:[162]
41000 [131]2146,1072,8,2146,851,5
41002 [131]2146,,2,2146,1072,8,2551,851
41004 [131]5,2408,,2,2408,1072,5,2146
41006 [131],2,2146,851,5,2025,,2,2145,1072,12